home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir26
/
grtmd65a.zip
/
GM6P5U.INF
< prev
next >
Wrap
INI File
|
1993-12-03
|
12KB
|
409 lines
;; This is the installation script that is used to install
;; Grateful Med Version 6.5 Update files.
;;
DefineVariables
Text [CompanyName] := National Library of Medicine
Text [ProductName] := Grateful Med Update: Version 6.5
Text [ExpressSetupDescription] := Install [ProductName]
Directory [DefaultInstallationDirectory] := GM6
Directory [ReadmeFileName] := README.6P5
Text [WarnLine1] := You must have Grateful Med Version 6 on your
Text [WarnLine2] := computer in order for this update to work.
Text [WarnLine3] := Please make sure that you have specified the correct
Text [WarnLine4] := location (drive: and directory) of GM Version 6.
Text [MainBorder] := NONE
Text [PopupBorder] := SINGLE
Text [TopLineColors] := WhiteOnLightBlue
Text [BottomLineColors] := WhiteOnLightGray
Text [PopupColors] := WhiteOnCyan
Text [AttentionColors] := WhiteOnRed
Text [SpecialPopupColors] := BlueonLightGray
Text [BackgroundCharacter] := B0
Text [ScreenColors] := WhiteOnLightBlue
Text [ModifyMode] := UNDECIDED
Text [ExtractionOptions] := ShowJustOne ;; See GetQuedFiles
Text [MinimumOSVersion] := 3.10
Number [MinimumSystemMemoryRequiredPresent] := 0
Logical [MathCoprocessorRecommended] := NoCharacter
Logical [Installed] := NoCharacter
Text [DisplayAdapterSummary] :=
Text [CPUTypeSummary] :=
Text [NetworkActive] :=
Text [MathCoprocessorStatus] :=
Text [InstallationDriveSummary] :=
Text [OSVersionSummary] :=
Text [SystemMemorySummary] :=
Logical [InsufficientSystem] := NoCharacter
Logical [CompatibilityNoticeGiven] := NoCharacter
EndDefineVariables
SetReplacementInquiry Off
LetButton <F1> Do ShowHelpInfo
LetButton <F3> Do ShowSystemSummary
LetButton <F9> Do ExitInstallation
Do SetupINSTALIT
Dialog [YesOrNo1] [ScreenColors] ;; does user know location of existing GM6?
This installation program can only UPDATE an
existing copy of Grateful Med Version 6.
You will be asked to specify the disk drive
and directory that contains your current copy
of Version 6. Do you wish to continue?
EndDialog
If [YesOrNo1] = NoCharacter
Do ExitInstallation
EndIf
:GetWhereToInstall
DetermineInstallationDrive 170000 RequireFixed
[InstallationDirectory] := InstallationDrive:\[DefaultInstallationDirectory]
DetermineInstallationDirectory NoCreate RequireFixed
if .not. DirectoryExists [InstallationDirectory]
Dialog
Directory [InstallationDirectory] does not exist.
[WarnLine1]
[WarnLine2]
[WarnLine3]
[WarnLine4]
EndDialog
Goto GetWhereToInstall
EndIf
If .not. FileExists [InstallationDirectory]\GMSI.EXE
Dialog
Grateful Med Version 6 is not in [InstallationDirectory].
[WarnLine1]
[WarnLine2]
[WarnLine3]
[WarnLine4]
EndDialog
GoTo GetWhereToInstall
EndIf
If .not. FileExists [InstallationDirectory]\TREE.DCT
GoTo Menu2
EndIf
:Menu1
ClearScreen
GetMenuChoice @xy(Center,10) UseHeader " Update Grateful Med in [InstallationDirectory]"
Proceed with Update
Select a different directory
;Lets you update a copy of Grateful Med
;that you may have in another directory.
Quit
;Takes you back to DOS
EndGetMenuChoice
ClearScreen
InCase choice is
=1: QueAllFiles
=2: GoTo GetWhereToInstall
=3: Do ExitInstallation
EndInCase
If QueSize = 0
GoTo Continue1
EndIf
GetQuedFiles [ExtractionOptions]
If FileExists [InstallationDirectory]\[ReadmeFileName]
Dialog [YesOrNo2] [ScreenColors]
Grateful Med has been updated to Version 6.5
in [InstallationDirectory]
(If you need to return to the update menu,
e.g., to update another copy of Grateful Med,
press 'N' otherwise press 'Y'.)
Are you done with the update?
EndDialog
If [YesOrNo2] = YesCharacter
Do ExitInstallation
EndIf
EndIf
:Continue1
GoTo Menu1
:Menu2
ClearScreen
If .not. FileExists [InstallationDirectory]\TREE.DCT
TextBox @xy(1,4) UseHeader "MeSH More Specific Terms" [ScreenColors]
You do not have the MeSH More Specific Terms installed
at this time. You can add this feature now if you wish.
It requires an additional 400K Bytes of disk space.
EndTextBox
EndIf
GetMenuChoice @xy(Center,11) UseHeader "Update Grateful Med in [InstallationDirectory]"
Update Grateful Med
;Updates the current copy of Grateful Med
;without the MeSH More Specific Terms feature.
Update Grateful Med (include MeSH More Specific Terms)
;Updates the current copy of Grateful Med
;and adds the MeSH More Specific Terms files.
Select a different directory
;Lets you update a copy of Grateful Med
;that you may have in another directory.
Quit
;Takes you back to DOS
EndGetMenuChoice
ClearScreen
InCase choice is
=1: QueFileGroup 1
=2: QueAllFiles
=3: GoTo GetWhereToInstall
=4: Do ExitInstallation
EndInCase
If QueSize = 0
GoTo Continue2
EndIf
GetQuedFiles [ExtractionOptions]
If FileExists [InstallationDirectory]\[ReadmeFileName]
Dialog [YesOrNo4] [ScreenColors]
Grateful Med has been updated to Version 6.5
in [InstallationDirectory]
(If you need to return to the update menu,
e.g., to update another copy of Grateful Med,
press 'N' otherwise press 'Y'.)
Are you done with the update?
EndDialog
If [YesOrNo4] = YesCharacter
Do ExitInstallation
EndIf
EndIf
:Continue2
GoTo Menu2
Procedure ShowHelpInfo
Dialog PressAKey [SpecialPopupColors] ;; How to reach technical support
This installation program will update, to Version 6.5, any
existing copy of Grateful Med Version 6. You must know
the drive and directory that contains your current copy of
Grateful Med in order to proceed with the update.
The updated Grateful Med, Version 6.5, will use an extra
100K to 200K of disk space, primarily because of an increase
in the size of the MeSH files.
If you have additional questions about this Grateful Med
update, please contact NLM's MEDLARS Service Desk:
Phone: 1-800-638-8480
GM-BBS: Select DIRECT from the Action screen and then
.l select Grateful Med BBS. Send a message to MMS.
e-mail: gmhelp@gmedserv.nlm.nih.gov
EndDialog
EndProcedure
Procedure ShowSystemSummary ;; System summary - change with care.
If [InstallationDirectory] <> BlankString
[InstallationDriveSummary] := InstallationDrive (FreeSpaceOnDrive InstallationDrive bytes free)
else
[InstallationDriveSummary] := (Not Selected)
EndIf
Dialog PressAKey [SpecialPopupColors]
.cHERE IS A SUMMARY OF YOUR SYSTEM
.c[String8] ;; notes whether any incompatibilities were found
Operating System Version: [OSVersionSummary]
CPU Type: [CPUTypeSummary]
Display Adapter: [DisplayAdapterSummary]
Math Coprocessor: [MathCoprocessorStatus]
Main Memory Present: [SystemMemorySummary]
Extended Memory Present: ExtendedMemoryPresentK
XMS Memory Available: XMSMemoryAvailableK
Installation Drive: [InstallationDriveSummary]
Network: [NetworkActive]
[String9] ;; information about network suitability
EndDialog
EndProcedure
Procedure PrepareSystemReport
[InsufficientSystem] := NoCharacter
If OSVersion < [MinimumOSVersion]
[OSVersionSummary] := OSVersion (need at least [MinimumOSVersion])
[InsufficientSystem] := YesCharacter
else
[OSVersionSummary] := OSVersion
EndIf
If MainMemory < [MinimumSystemMemoryRequiredPresent]
[SystemMemorySummary] := MainMemoryK (need at least [MinimumSystemMemoryRequiredPresent]K)
[InsufficientSystem] := YesCharacter
else
[SystemMemorySummary] := MainMemoryK
EndIf
If 808X
If [Allow808X] = YesCharacter
[CPUTypeSummary] := 808x
else
[CPUTypeSummary] := 808x (not compatible with [ProductName])
[InsufficientSystem] := YesCharacter
EndIf
EndIf
If 80286
[CPUTypeSummary] := 80286
EndIf
If 80386
[CPUTypeSummary] := 80386
EndIf
If 80486
[CPUTypeSummary] := 80486
EndIf
If [CPUTypeSummary] = BlankString
[CPUTypeSummary] := 808x
EndIf
If MicroChannel
[CPUTypeSummary] := [CPUTypeSummary] (in MicroChannel Architecture)
else
[CPUTypeSummary] := [CPUTypeSummary] (ISA or EISA Architecture)
EndIf
If CGA
If [AllowCGA] = YesCharacter
[DisplayAdapterSummary] := CGA
else
[DisplayAdapterSummary] := CGA (not compatible with [ProductName])
[InsufficientSystem] := YesCharacter
EndIf
EndIf
If MDA
If [AllowMDA] = YesCharacter
[DisplayAdapterSummary] := MDA
else
[DisplayAdapterSummary] := MDA (not compatible with [ProductName])
[InsufficientSystem] := YesCharacter
EndIf
EndIf
If EGA
[DisplayAdapterSummary] := EGA
EndIf
If VGA
[DisplayAdapterSummary] := VGA
EndIf
If HGC
[DisplayAdapterSummary] := HGC
EndIf
If HGCPlus
[DisplayAdapterSummary] := HGC Plus
EndIf
If Network
[NetworkActive] := Network Active
else
[NetworkActive] := No Network Active
EndIf
If NovellLoaded
[NetworkActive] := Novell [NetworkActive]
EndIf
If MathCoprocessorPresent
[MathCoprocessorStatus] := Present
else
If [MathCoprocessorRecommended] = YesCharacter
[MathCoprocessorStatus] := Not Present But Recommended
If [CompatibilityNoticeGiven] = YesCharacter
else
Dialog ;; Notice if math coprocessor recommended
[ProductName] needs a math coprocessor
for best performance. Your system does not
contain one.
EndDialog
EndIf
else
[MathCoprocessorStatus] := Not Present
EndIf
EndIf
If [InsufficientSystem] = YesCharacter
[String8] := (Please note the listed incompatibilities)
EndIf
If [NetworkInstallation] contains DisallowNetwork
[String9] := " (You cannot install this version on a network drive)"
EndIf
[CompatibilityNoticeGiven] := YesCharacter
EndProcedure
Procedure ExitInstallation
ClearScreen
If [ReadmeFileName] <> BlankString
If FileExists [InstallationDirectory]\[ReadmeFileName]
ChangeDirectoryTo [InstallationDirectory]
Dialog [YesOrNo3] ;; Ask whether to browse readme file, if any
The file [ReadmeFileName] describes what has changed with
version 6.5 of Grateful Med. You may read or print
it from the [InstallationDirectory] directory or you may
look at it now. Would you like to see it now?
EndDialog
If [YesOrNo3] = YesCharacter
If FileExists [ReadmeFileName]
BrowseFile [ReadmeFileName]
else
Popup Sorry, readme file [ReadMeFileName] is missing.
EndIf
EndIf
EndIf
EndIf
SoLong
EndProcedure
Procedure SetupInstalit
SetScreenAttrTo [ScreenColors]
SetBackgroundCharTo [BackgroundCharacter]
Do PrepareSystemReport
SetShadows Off
NoSysFileConfirmation
SetMainBorderTo [MainBorder]
SetPopupBorderTo [PopupBorder]
SetModifyModeTo [ModifyMode]
SetShadowAttrTo DarkGrayOnBlack
SetScreenAttrTo [ScreenColors]
SetPopupAttrTo [PopupColors]
SetAttentionAttrTo [AttentionColors]
SetTopLineAttrTo [TopLineColors]
SetBottomLineAttrTo [BottomLineColors]
SetBottomLineTo " <F1> Help <F3> System Summary <F9> to Quit "
SetTopLineTo " [ProductName] "
SetAllowExit Off
EndProcedure
EndScript